home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Buttons,Buttons.cpt / Buttons, Buttons / card_3016.txt < prev    next >
Text File  |  1992-03-04  |  6KB  |  273 lines
  1. -- card: 3016 from stack: in
  2. -- bmap block id: 3811
  3. -- flags: 0000
  4. -- background id: 2690
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   send juggle to button "Juggler"
  9. end opencard
  10.  
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: 0000
  16. -- rect: left=19 top=21 right=62 bottom=59
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 9210 / 9210
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: New Button
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   If the icon of me is 9210 then
  28.     set the icon of me to 12815
  29.     play "click"
  30.   else if the icon of me is 12815 then
  31.     set the icon of me to 9210
  32.     Play "click"
  33.   end if
  34. end mouseUp
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 8000
  40. -- rect: left=95 top=12 right=61 bottom=133
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 25318 / 25318
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Flip Top
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   If the icon of me is 25318 then
  52.     set the icon of me to 25319
  53.     play "click"
  54.   else if the icon of me is 25319 then
  55.     set the icon of me to 25320
  56.     play "click"
  57.     wait for 10 ticks
  58.     set the icon of me to 25319
  59.     play "click"
  60.     wait for 1 sec
  61.     set the icon of me to 25318
  62.     play "click"
  63.   end if
  64. end mouseUp
  65.  
  66.  
  67. -- part 3 (button)
  68. -- low flags: 00
  69. -- high flags: 0001
  70. -- rect: left=169 top=29 right=59 bottom=208
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 24408 / 24408
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: New Button
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   If the icon of me is 24408 then
  82.     set the icon of me to 24407
  83.     play "click"
  84.   else if the icon of me is 24407 then
  85.     set the icon of me to 24408
  86.     play "click"
  87.   end if
  88. end mouseUp
  89.  
  90.  
  91. -- part 4 (button)
  92. -- low flags: 00
  93. -- high flags: 0000
  94. -- rect: left=137 top=13 right=60 bottom=168
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 25478 / 25478
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: New Button
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   If the icon of me is 25478 then
  106.     set the icon of me to 25479
  107.     play "click"
  108.   else if the icon of me is 25479 then
  109.     set the icon of me to 25478
  110.     play "click"
  111.   end if
  112. end mouseUp
  113.  
  114.  
  115. -- part 5 (button)
  116. -- low flags: 00
  117. -- high flags: 0000
  118. -- rect: left=59 top=18 right=63 bottom=93
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 31907 / 31907
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Toggle
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   If the icon of me is 31907 then
  130.     set the icon of me to 31908
  131.     play "click"
  132.   else if the icon of me is 31908 then
  133.     set the icon of me to 31907
  134.     play "click"
  135.   end if
  136. end mouseUp
  137.  
  138.  
  139. -- part 7 (button)
  140. -- low flags: 00
  141. -- high flags: 0001
  142. -- rect: left=302 top=21 right=57 bottom=338
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 21573 / 21573
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Juggler
  151. ----- HyperTalk script -----
  152. on juggle
  153.  
  154.   repeat for 12
  155.     If the icon of me is 21573 then
  156.       set the icon of me to 21574
  157.       set the icon of me to 21575
  158.       set the icon of me to 21576
  159.       set the icon of me to 21573
  160.     end if
  161.   end repeat
  162.  
  163. end juggle
  164.  
  165. on mouseUp
  166.   juggle
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 8 (button)
  172. -- low flags: 00
  173. -- high flags: 8000
  174. -- rect: left=212 top=14 right=63 bottom=257
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 27580 / 27580
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Glass
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   If the icon of me is 27580 then
  186.     set the icon of me to 27579
  187.     wait for 10 ticks
  188.     set the icon of me to 27578
  189.     wait for 10 ticks
  190.     set the icon of me to 27577
  191.     play "click"
  192.   else if the icon of me is 27577 then
  193.     set the icon of me to 27581
  194.     play "click"
  195.     wait for 20 ticks
  196.     set the icon of me to 27577
  197.     play "click"
  198.     wait for 10 ticks
  199.     set the icon of me to 27578
  200.     wait for 10 ticks
  201.     set the icon of me to 27579
  202.     wait for 10 ticks
  203.     set the icon of me to 27580
  204.     play "click"
  205.   end if
  206. end mouseUp
  207.  
  208.  
  209. -- part 10 (button)
  210. -- low flags: 00
  211. -- high flags: 8000
  212. -- rect: left=259 top=13 right=59 bottom=298
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 18904 / 18904
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Disco
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   If the icon of me is 18904 then
  224.     play "click"
  225.     repeat until the mouse is down
  226.       set the icon of me to 18905
  227.       wait for 30 ticks
  228.       set the icon of me to 18906
  229.       wait for 30 ticks
  230.     end repeat
  231.     set the icon of me to 18904
  232.  
  233.   end if
  234. end mouseUp
  235.  
  236.  
  237. -- part 11 (button)
  238. -- low flags: 00
  239. -- high flags: 0001
  240. -- rect: left=391 top=15 right=57 bottom=411
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 8419 / 8419
  243. -- text alignment: 1
  244. -- font id: 0
  245. -- text size: 12
  246. -- style flags: 0
  247. -- line height: 16
  248. -- part name: New Button
  249. ----- HyperTalk script -----
  250. on mouseUp
  251.   visual effect shrink to bottom
  252.   go to next card
  253. end mouseUp
  254.  
  255.  
  256. -- part 12 (button)
  257. -- low flags: 00
  258. -- high flags: 0001
  259. -- rect: left=367 top=16 right=57 bottom=388
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 8420 / 8420
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: New Button
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   visual effect shrink to center
  271.   go to prev card
  272. end mouseUp
  273.